home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / ged11.lha / Install / data / main / GoldED / ARexx / KickPascal.ged < prev    next >
Text File  |  1994-08-12  |  2KB  |  58 lines
  1. /* $VER: 0.3 © 1993 Oliver Clouth. */
  2. /* Starten von Kick-Pascal und Compilation des Programm's */
  3.  
  4. OPTIONS RESULTS                             /* enable return codes     */
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  10. OPTIONS FAILAT 6                            /* ignore warnings         */
  11. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  12.  
  13.  
  14. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  15.  
  16. 'QUERY CAT VAR LANGUAGE'
  17.  
  18. 'QUERY ANYTEXT'
  19.  
  20. if (result = 'TRUE') then 
  21.  
  22.     do
  23.         'QUERY DOC VAR OLDNAME'             /* remember current file name */
  24.         'SAVE ALL NAME="RAM:Test.p"'        /* create temorary file */
  25.  
  26.         shell                               /* address shell */
  27.  
  28.         'PAS:KP -w100 Ram:Test.p'           /* Aufruf von Kick-Pascal */
  29.  
  30.         ok = (RC = 0)
  31.  
  32.         shell                               /* address host (GoldED) */
  33.  
  34.         'NAME NEW ' || oldname              /* restore old file name */
  35.     end
  36.  
  37. else do
  38.  
  39.     if (LANGUAGE = "deutsch") then
  40.         'REQUEST BODY="Kein Text vorhanden ?!"'
  41.  
  42.     else if (LANGUAGE = "français")
  43.         'REQUEST BODY="Le tampon texte est vide ?!"'
  44.     else
  45.         'REQUEST BODY="Text buffer is empty ?!"'
  46. end
  47.  
  48. /* ---------------------------- END OF YOUR CODE ----------------------- */
  49.  
  50. 'UNLOCK' /* VERY important: unlock GUI */
  51. EXIT
  52.  
  53. SYNTAX:
  54.  
  55. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  56. 'UNLOCK'
  57. EXIT
  58.